home *** CD-ROM | disk | FTP | other *** search
/ MacFormat 1997 February / macformat-047.iso / Demos / Chiller Killers / Chiller / Chiller.DXR / 00496.ls < prev    next >
Encoding:
Text File  |  1996-11-28  |  814 b   |  38 lines
  1. on compose
  2.   global rate, switch, switchit, wait, check, change, s
  3.   set switch to switch + 1
  4.   set switchit to switchit + 1
  5.   switcher()
  6.   if switch > (rate / 7 * 91) then
  7.     changedrums()
  8.   end if
  9.   set wait to wait + 1
  10.   if wait > (rate / 7 * 7) then
  11.     put "recomposing"
  12.     set check to 0
  13.     put " " into field "advert"
  14.     if the lastClick > (10 * 60) then
  15.       voice()
  16.       set change to random(4)
  17.       if change = 1 then
  18.         unLoadCast()
  19.         dropdrums()
  20.       end if
  21.       if change = 2 then
  22.         unLoadCast()
  23.         changedrums()
  24.       end if
  25.       if change = 3 then
  26.         unLoadCast()
  27.         dropsounds()
  28.         set s to random(26)
  29.         do("sel" & s & EMPTY)
  30.       end if
  31.       if change = 4 then
  32.         unLoadCast()
  33.         changesounds()
  34.       end if
  35.     end if
  36.   end if
  37. end
  38.